home *** CD-ROM | disk | FTP | other *** search
/ Virtual Vibrations / Virtual Vibrations.iso / mac / Virtual Vibrations / STAR.DXR / 00051.ls < prev    next >
Encoding:
Text File  |  1994-10-28  |  792 b   |  37 lines
  1. on enterFrame
  2. end
  3.  
  4. on keyDown
  5.   if (the key = "b") or (the key = "B") then
  6.     set the hilite of cast "Boss 1" to 1
  7.     puppetSound("click")
  8.     updateStage()
  9.     set the hilite of cast "Boss 1" to 0
  10.     updateStage()
  11.     puppetSprite(48, 0)
  12.     play frame "boss"
  13.   end if
  14.   if (the key = "m") or (the key = "M") then
  15.     set the hilite of cast "Back to Main 1" to 1
  16.     puppetSound("click")
  17.     updateStage()
  18.     set the hilite of cast "Back to Main 1" to 0
  19.     updateStage()
  20.     puppetSprite(48, 0)
  21.     go("Main")
  22.   end if
  23.   if (the key = "x") or (the key = "X") then
  24.     set the hilite of cast "Exit 1" to 1
  25.     puppetSound("click")
  26.     updateStage()
  27.     set the hilite of cast "Exit 1" to 0
  28.     updateStage()
  29.     puppetSprite(48, 0)
  30.     play done
  31.   end if
  32. end
  33.  
  34. on exitFrame
  35.   pause()
  36. end
  37.